home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2008 January / Cybermycha 1_2008.iso / Data.cab / _F0860EAC2DD44922A5A1A0FFF0BF9A35 < prev    next >
Encoding:
Text File  |  2004-03-17  |  587 b   |  22 lines
  1. regc(0, "TFACTOR")
  2. regc4f( 5, %daycolor_r, %daycolor_g, %daycolor_b, %daycolor_a )
  3. regc4f( 7, %ambient_r, %ambient_g, %ambient_b, %ambient_a )
  4. pshader("
  5.  
  6. ps_1_1
  7.  
  8. tex t0                      ;texture (RGB - color, A<0-127> - Opacity, A<128-255> - Specular Mask)
  9. tex t1                      ;Clouds
  10.  
  11.  
  12.     mul        r1.rgb,        t0,            c5            ;tex    * daycolor
  13.     +mul    r1.a,        1-t1.a,        c0.b        ;clouds * luminance
  14.     
  15.     mad_sat    r0,            r1.a,        c7,        c7.a    ;Clouds + Ambietn   = Set Clouds    
  16.     
  17.     mul        r0.rgb,        r1,            r0                ;tex * shadows    
  18.     +mul    r0.a,        t0.a,        c0.a            ;Opacity Mask * Object blending
  19.  
  20. ")
  21.  
  22.